Odoslat pomocou internetu SMS do ceskych operatorov

Otázka od: Stasko Peter

13. 7. 2004 13:13

Zdravim vsewtkych zastavncov logiky a matiky  
 
Xcel by som si urobit programcek na odosielanie SMS do CZ operatorov (hlavne
OS***)ziadna reklama  
Ale vobec netusim ako.. Niekedy to slo cez mail, ale nejak to nefunguje.. Ale
pouzivam zly syntax.. Pls. Vas vsetkych o radu...

Diq  

Peter Stasko
-----------
stasko@fic.cz


Odpovedá: tomsir1.edu@mail.cez.cz

13. 7. 2004 15:27

podivej se na www stranky oskara, jak vypada formular na odesilani sms,
jake promenne se cim naplnuji, no a potom budes schopen napsat program,
ktery kontaktuje www server oskara, prislusnou stranku a odesle ta
pozadovana data na server ... nic sloziteho, musis se jen prokousat html
kodem oskarovy stranky a podivat se do RFC , jak funguje komnikace klient
<--> server sluzby www ...

Radek





"Stasko Peter" <stasko@fic.cz>@clexpert.cz on 13.07.2004 12:45:02

Odpovezte prosim - delphi-l@clexpert.cz

Odeslano kym: delphi-l-owner@clexpert.cz


Komu: delphi-l@clexpert.cz
Kopie:
Predmet: Odoslat pomocou internetu SMS do ceskych operatorov


Zdravim vsewtkych zastavncov logiky a matiky  

Xcel by som si urobit programcek na odosielanie SMS do CZ operatorov
(hlavne OS***)ziadna reklama  
Ale vobec netusim ako.. Niekedy to slo cez mail, ale nejak to nefunguje...
Ale pouzivam zly syntax.. Pls. Vas vsetkych o radu...

Diq  

Peter Stasko
-----------
stasko@fic.cz




Odpovedá: Jiri Cincura

13. 7. 2004 15:04

Pres jejich web to jde.

Takto (ukazko pro UNIX shell), kdo ma dotazy, at se pta  


#!/bin/bash

SMSDIR=~/.sms

TestArgs() {

    if [ "$1" != "2" ]; then
 echo "Bad arguments, usage: \"sms addressee 'Any text'\"";
 exit;
    fi

}

TestEnv() {

    if [ -d $SMSDIR ] ; then
 echo -n "Homedir is $SMSDIR. ";
    else
 mkdir $SMSDIR;
     if [ -d $SMSDIR ] ; then
  echo -n "Homedir is $SMSDIR. ";
     else
  echo "Homedir $SMSDIR not found. Unable to create $SMSDIR.";
  exit;
     fi
    fi

}


SelectAddressbook() {

    if [ -f $SMSDIR/addressbook ] ; then
 echo -n 'Using local adressbook. ';
 ADR=$SMSDIR/addressbook ;
    else
        if [ -f /etc/addressbook ] ; then
     echo -n 'Using global adressbook. ';
     ADR=/etc/addressbook;
 else
     echo 'No addressbook found.';
     exit;
 fi
    fi

}


GetDateTime() {

    DATE=`date +'%Y-%m-%d'`
    TIME=`date +'%H:%M:%S'`

}

GetUserNo() {

    if [ -f $SMSDIR/myphone ] ; then

        MYPREFIX1=`awk 'BEGIN { FS=";"}
  {
      print $1
  }'
$SMSDIR/myphone`

        if [ "${#MYPREFIX1}" != "3" ]; then
  echo "Bad user prefix."
  exit;
        fi

 MYPREFIX2=`awk 'BEGIN { FS=";"}
  {
      print $2
  }' $SMSDIR/myphone`

 if [ "${#MYPREFIX2}" != "3" ]; then
  echo "Bad user prefix."
  exit;
        fi

 MYNUMBER=`awk 'BEGIN { FS=";"}
     {
  print $3
     }' $SMSDIR/myphone`

        if [ "${#MYNUMBER}" != "6" ]; then
  echo "Bad user number."
  exit;
        fi

    else
 MYPREFIX1="";
 MYPREFIX2="";
 MYNUMBER="";
    fi
}


GetPrefix() {

    PREFIX=`awk -v id="$1"
'BEGIN { FS=";"}
 {
     if ($1 == id)
     print $3
 }' $ADR`

    if [ "${#PREFIX}" != "3" ]; then
 echo "Prefix \"$NUMBER\" is not valid."
 exit;
    fi

}

GetNumber() {

    NUMBER=`awk -v id="$1"
'BEGIN { FS=";"}
 {
     if ($1 == id)
     print $4
 }' $ADR`

    if [ "${#NUMBER}" != "6" ]; then
 echo "Number \"$NUMBER\" is not valid."
 exit;
    fi
}

TestArgs $#
TestEnv
SelectAddressbook
GetDateTime
GetUserNo
GetPrefix $1
GetNumber $1

POST_VAR="predcisli=$PREFIX&number=$NUMBER&mypred1=$MYPREFIX1&mypred2=$MYPRE
FIX2&mynumber=$MYNUMBER&ppp=105446461430873:71efa357fa189a597aed667c3ff97fc4
&locale=en&sender=&message=$2"
echo "$POST_VAR" > /tmp/sms_vars
echo --- >> /tmp/sms_vars
echo -n 'Sending message... '
lynx http://sms.oskarmobil.cz/send.php3
-post_data</tmp/sms_vars>/tmp/sms_result
RESULT=`cat /tmp/sms_result; # | grep 'Message'`
echo $RESULT;
read $ANS;

    if [ "$RESULT" = " Congratulations - Message sent!"
]; then
 echo 'OK.'
    else
 echo 'Failed.'
    fi

rm /tmp/sms_vars
rm /tmp/sms_result

--
Jiri Cincura
e-mail: mailto:jiri@cincura.net; mailto:xcincura@informatics.muni.cz
ICQ: 314711544
web: http://www.cincura.net; http://cincura.net/photo


Odpovedá: Stasko Peter

13. 7. 2004 17:58


Dalo by sa to portovat v tvar DELPHI ?  
------------------------------

Pres jejich web to jde.

Takto (ukazko pro UNIX shell), kdo ma dotazy, at se pta  


#!/bin/bash

SMSDIR=~/.sms

TestArgs() {

    if [ "$1" != "2" ]; then
 echo "Bad arguments, usage: \"sms addressee 'Any text'\"";
 exit;
    fi

}

TestEnv() {

    if [ -d $SMSDIR ] ; then
 echo -n "Homedir is $SMSDIR. ";
    else
 mkdir $SMSDIR;
     if [ -d $SMSDIR ] ; then
  echo -n "Homedir is $SMSDIR. ";
     else
  echo "Homedir $SMSDIR not found. Unable to create $SMSDIR.";
  exit;
     fi
    fi

}


SelectAddressbook() {

    if [ -f $SMSDIR/addressbook ] ; then
 echo -n 'Using local adressbook. ';
 ADR=$SMSDIR/addressbook ;
    else
        if [ -f /etc/addressbook ] ; then
     echo -n 'Using global adressbook. ';
     ADR=/etc/addressbook;
 else
     echo 'No addressbook found.';
     exit;
 fi
    fi

}


GetDateTime() {

    DATE=`date +'%Y-%m-%d'`
    TIME=`date +'%H:%M:%S'`

}

GetUserNo() {

    if [ -f $SMSDIR/myphone ] ; then

        MYPREFIX1=`awk 'BEGIN { FS=";"}
  {
      print $1
  }'
$SMSDIR/myphone`

        if [ "${#MYPREFIX1}" != "3" ]; then
  echo "Bad user prefix."
  exit;
        fi

 MYPREFIX2=`awk 'BEGIN { FS=";"}
  {
      print $2
  }' $SMSDIR/myphone`

 if [ "${#MYPREFIX2}" != "3" ]; then
  echo "Bad user prefix."
  exit;
        fi

 MYNUMBER=`awk 'BEGIN { FS=";"}
     {
  print $3
     }' $SMSDIR/myphone`

        if [ "${#MYNUMBER}" != "6" ]; then
  echo "Bad user number."
  exit;
        fi

    else
 MYPREFIX1="";
 MYPREFIX2="";
 MYNUMBER="";
    fi
}


GetPrefix() {

    PREFIX=`awk -v id="$1"
'BEGIN { FS=";"}
 {
     if ($1 == id)
     print $3
 }' $ADR`

    if [ "${#PREFIX}" != "3" ]; then
 echo "Prefix \"$NUMBER\" is not valid."
 exit;
    fi

}

GetNumber() {

    NUMBER=`awk -v id="$1"
'BEGIN { FS=";"}
 {
     if ($1 == id)
     print $4
 }' $ADR`

    if [ "${#NUMBER}" != "6" ]; then
 echo "Number \"$NUMBER\" is not valid."
 exit;
    fi
}

TestArgs $#
TestEnv
SelectAddressbook
GetDateTime
GetUserNo
GetPrefix $1
GetNumber $1

POST_VAR="predcisli=$PREFIX&number=$NUMBER&mypred1=$MYPREFIX1&mypred2=$MYPRE
FIX2&mynumber=$MYNUMBER&ppp=105446461430873:71efa357fa189a597aed667c3ff97fc4
&locale=en&sender=&message=$2"
echo "$POST_VAR" > /tmp/sms_vars
echo --- >> /tmp/sms_vars
echo -n 'Sending message... '
lynx http://sms.oskarmobil.cz/send.php3
-post_data</tmp/sms_vars>/tmp/sms_result
RESULT=`cat /tmp/sms_result; # | grep 'Message'`
echo $RESULT;
read $ANS;

    if [ "$RESULT" = " Congratulations - Message sent!"
]; then
 echo 'OK.'
    else
 echo 'Failed.'
    fi

rm /tmp/sms_vars
rm /tmp/sms_result

--
Jiri Cincura
e-mail: mailto:jiri@cincura.net; mailto:xcincura@informatics.muni.cz
ICQ: 314711544
web: http://www.cincura.net; http://cincura.net/photo




Odpovedá: Stasko Peter

13. 7. 2004 17:58

No ja mam otazku. Je to sice pekne, ale mne ide o to, ako to poslat priamo..
Napriklad v delphi si napisem nejaku fukciu, ktora mi odosle moju spravu na ich
web, ale v akom formate a na aku adresu???
Alebo to staci poslat v nejakom tvare?? Napr. cislotelefonu@operator.cz????
diq
-------------

Pres jejich web to jde.

Takto (ukazko pro UNIX shell), kdo ma dotazy, at se pta  


#!/bin/bash

SMSDIR=~/.sms

TestArgs() {

    if [ "$1" != "2" ]; then
 echo "Bad arguments, usage: \"sms addressee 'Any text'\"";
 exit;
    fi

}

TestEnv() {

    if [ -d $SMSDIR ] ; then
 echo -n "Homedir is $SMSDIR. ";
    else
 mkdir $SMSDIR;
     if [ -d $SMSDIR ] ; then
  echo -n "Homedir is $SMSDIR. ";
     else
  echo "Homedir $SMSDIR not found. Unable to create $SMSDIR.";
  exit;
     fi
    fi

}


SelectAddressbook() {

    if [ -f $SMSDIR/addressbook ] ; then
 echo -n 'Using local adressbook. ';
 ADR=$SMSDIR/addressbook ;
    else
        if [ -f /etc/addressbook ] ; then
     echo -n 'Using global adressbook. ';
     ADR=/etc/addressbook;
 else
     echo 'No addressbook found.';
     exit;
 fi
    fi

}


GetDateTime() {

    DATE=`date +'%Y-%m-%d'`
    TIME=`date +'%H:%M:%S'`

}

GetUserNo() {

    if [ -f $SMSDIR/myphone ] ; then

        MYPREFIX1=`awk 'BEGIN { FS=";"}
  {
      print $1
  }'
$SMSDIR/myphone`

        if [ "${#MYPREFIX1}" != "3" ]; then
  echo "Bad user prefix."
  exit;
        fi

 MYPREFIX2=`awk 'BEGIN { FS=";"}
  {
      print $2
  }' $SMSDIR/myphone`

 if [ "${#MYPREFIX2}" != "3" ]; then
  echo "Bad user prefix."
  exit;
        fi

 MYNUMBER=`awk 'BEGIN { FS=";"}
     {
  print $3
     }' $SMSDIR/myphone`

        if [ "${#MYNUMBER}" != "6" ]; then
  echo "Bad user number."
  exit;
        fi

    else
 MYPREFIX1="";
 MYPREFIX2="";
 MYNUMBER="";
    fi
}


GetPrefix() {

    PREFIX=`awk -v id="$1"
'BEGIN { FS=";"}
 {
     if ($1 == id)
     print $3
 }' $ADR`

    if [ "${#PREFIX}" != "3" ]; then
 echo "Prefix \"$NUMBER\" is not valid."
 exit;
    fi

}

GetNumber() {

    NUMBER=`awk -v id="$1"
'BEGIN { FS=";"}
 {
     if ($1 == id)
     print $4
 }' $ADR`

    if [ "${#NUMBER}" != "6" ]; then
 echo "Number \"$NUMBER\" is not valid."
 exit;
    fi
}

TestArgs $#
TestEnv
SelectAddressbook
GetDateTime
GetUserNo
GetPrefix $1
GetNumber $1

POST_VAR="predcisli=$PREFIX&number=$NUMBER&mypred1=$MYPREFIX1&mypred2=$MYPRE
FIX2&mynumber=$MYNUMBER&ppp=105446461430873:71efa357fa189a597aed667c3ff97fc4
&locale=en&sender=&message=$2"
echo "$POST_VAR" > /tmp/sms_vars
echo --- >> /tmp/sms_vars
echo -n 'Sending message... '
lynx http://sms.oskarmobil.cz/send.php3
-post_data</tmp/sms_vars>/tmp/sms_result
RESULT=`cat /tmp/sms_result; # | grep 'Message'`
echo $RESULT;
read $ANS;

    if [ "$RESULT" = " Congratulations - Message sent!"
]; then
 echo 'OK.'
    else
 echo 'Failed.'
    fi

rm /tmp/sms_vars
rm /tmp/sms_result

--
Jiri Cincura
e-mail: mailto:jiri@cincura.net; mailto:xcincura@informatics.muni.cz
ICQ: 314711544
web: http://www.cincura.net; http://cincura.net/photo




Odpovedá: Jiri Matejka

13. 7. 2004 16:40

Na Eurotel to jde pomoci +420cislo@sms.eurotel.cz, ale pridava to tam
nejakou reklamu (stejne jako euroteli brana na webu); na tmobile to jde
poslat, myslim, jen tem co jsou nejak registrovani (TZones); na Oskar nevim,
ale tam je to myslim taky funkcni a snad s mensimi omezenimi nez u
zbyvajicich dvou operatoru. Kazdopadne bych cekal, ze na webu operatoru o
tom budou nejake info.

Jirka Matejka

==>Tuesday, July 13, 2004 5:09 PM stasko@fic.cz wrote:

> No ja mam otazku. Je to sice pekne, ale mne ide o to, ako to poslat
> priamo..
> Napriklad v delphi si napisem nejaku fukciu, ktora mi odosle moju
> spravu na ich web, ale v akom formate a na aku adresu??? Alebo to
> staci poslat v nejakom tvare?? Napr. cislotelefonu@operator.cz????
> diq



Odpovedá: Stasko Peter

13. 7. 2004 17:28

Presne to by som potreboval na OSKARA   nefiete niekto?? Nieje to na ich
strankach  
------------
Na Eurotel to jde pomoci +420cislo@sms.eurotel.cz, ale pridava to tam nejakou
reklamu (stejne jako euroteli brana na webu); na tmobile to jde poslat, myslim,
jen tem co jsou nejak registrovani (TZones); na Oskar nevim, ale tam je to
myslim taky funkcni a snad s mensimi omezenimi nez u zbyvajicich dvou
operatoru. Kazdopadne bych cekal, ze na webu operatoru o tom budou nejake
info.

Jirka Matejka

==>Tuesday, July 13, 2004 5:09 PM stasko@fic.cz wrote:

> No ja mam otazku. Je to sice pekne, ale mne ide o to, ako to poslat
> priamo.. Napriklad v delphi si napisem nejaku fukciu, ktora mi odosle
> moju spravu na ich web, ale v akom formate a na aku adresu??? Alebo to
> staci poslat v nejakom tvare?? Napr. cislotelefonu@operator.cz????
> diq



Odpovedá: Peter Ondras

13. 7. 2004 18:01

Sposob ako poslat sms do Oskara je na ich strankach.
http://sms.oskarmobil.cz - zobrazit zdrojovy kod stranky, vyhladat
"<form action" a vytvorit program, ktory bude kontaktovat rovnaky skript
ako je v tom action.

> -----Original Message-----
> Presne to by som potreboval na OSKARA   nefiete niekto?? Nieje to na
ich
> strankach  


Odpovedá: Jiri Cincura

13. 7. 2004 18:23

Stasko Peter wrote:
> No ja mam otazku. Je to sice pekne, ale mne ide o to, ako to poslat
> priamo..
> Napriklad v delphi si napisem nejaku fukciu, ktora mi odosle moju
> spravu na ich web, ale v akom formate a na aku adresu??? Alebo to
> staci poslat v nejakom tvare?? Napr. cislotelefonu@operator.cz????
> diq

Tohle je jen pro Oskara. Napises cislo a message a ono se to posle.

Primo to funguje - staci nejaky HTTP_Send (zdravim Lukase Gebauera).

Portovat do Delphi to jde, ale nejak na to nemam cas. Spis jestli chces se
ozvi na konkretni vec a ja ti poradim. Ono je v tom blno funkci, ale staci
pochopit ten format co se posila lynxu.

Jiri Cincura
ICQ:
__314711544
web:
__[url]http://www.cincura.net[/url]
__[url]http://cincura.net/photo[/url]



Odpovedá: Lahoda Radek

14. 7. 2004 13:36

posilat mail na cislo nejde, to cislo musi mit zaregistrovane alias napr.
radek@mujoskar.cz (dojdou max. 2 sms, bez reklamy)

Radek Lahoda


----- Puvodni zprava -----
Od: "Stasko Peter" <stasko@fic.cz>
Komu: <delphi-l@clexpert.cz>
Odeslano: 13. cervence 2004 17:52
Predmet: Re: Odoslat pomocou internetu SMS do ceskych operatorov


> Presne to by som potreboval na OSKARA   nefiete niekto?? Nieje to na ich
strankach  
> ------------
> Na Eurotel to jde pomoci +420cislo@sms.eurotel.cz, ale pridava to tam
nejakou reklamu (stejne jako euroteli brana na webu); na tmobile to jde
poslat, myslim, jen tem co jsou nejak registrovani (TZones); na Oskar nevim,
ale tam je to myslim taky funkcni a snad s mensimi omezenimi nez u
zbyvajicich dvou operatoru. Kazdopadne bych cekal, ze na webu operatoru o
tom budou nejake info.
>
> Jirka Matejka
>
> ==>Tuesday, July 13, 2004 5:09 PM stasko@fic.cz wrote:
>
> > No ja mam otazku. Je to sice pekne, ale mne ide o to, ako to poslat
> > priamo.. Napriklad v delphi si napisem nejaku fukciu, ktora mi odosle
> > moju spravu na ich web, ale v akom formate a na aku adresu??? Alebo to
> > staci poslat v nejakom tvare?? Napr. cislotelefonu@operator.cz????
> > diq
>
>
>
>
>
>
>